##########################################
## "Voters get what they want"          ##
##########################################
## Heinrich, Kobayashi, Long            ##
##########################################

##          
## Descriptives of September survey experiment
## Script 14
## June 29, 2017


## Load Rhats
#############
load("output/Rhat.Rdata")


## Sort
#######
print(sort(Rhat$Rhat, na.last=TRUE, decreasing=TRUE)[1:10])